home *** CD-ROM | disk | FTP | other *** search
/ Power Programmierung / Power-Programmierung (Tewi)(1994).iso / mutt / hanoi.mut < prev    next >
Text File  |  1988-03-01  |  498b  |  22 lines
  1. ; Good ol towers of hanoi
  2. ;    converted from xlisp to MUTT 12/86 C Durland
  3. ; Usage:
  4. ;      (hanoi <n>)
  5. ;          <n> - number of discs
  6.  
  7. (defun
  8.   print-move (from to)
  9.     { (msg "Move Disk From " from " To " to) }
  10.   transfer (from to via)(int n)
  11.   {
  12.     (if (== n 1)(print-move from to)
  13.     {
  14.       (transfer from via to (- n 1))
  15.       (print-move from to)
  16.       (transfer via to from (- n 1))
  17.     })
  18.   }
  19.   hanoi {(transfer "A" "B" "C" (atoi (ask "n = ")))(msg "done.")}
  20. )
  21. (hanoi)
  22.